home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Pascal / Applications / Flight Stability / Flight Stability Source / FS.p < prev    next >
Encoding:
Text File  |  1995-06-23  |  640 b   |  28 lines  |  [TEXT/PJMM]
  1. {****************************************************}
  2. {}
  3. {        FS.p                                                                                                                                                                                                                                }
  4. {}
  5. {        Main file for the Flight Stability application.                                                                                                            }
  6. {}
  7. {        Copyright © 1995, Patrick Hew.  All rights reserved.                                                                            }
  8. {}
  9. {****************************************************}
  10.  
  11.  
  12. program FS;
  13.  
  14.     { Turn off automatic initialization }
  15. {$I-}
  16.  
  17.     uses
  18.         TCL, FSIntf;
  19.  
  20. begin { FS }
  21.         (* if your program needs extra stack space, call *)
  22.         (* SetMinimumStack here                             *)
  23.  
  24.     new(CFSApp(gApplication));
  25.     CFSApp(gApplication).IFSApp;
  26.     gApplication.Run;
  27.     gApplication.ExitApp;
  28. end. { FS }